home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / Fix.backdrop.lha / Fix.backdrop / Install_en < prev   
Encoding:
Text File  |  2000-10-06  |  1.9 KB  |  80 lines
  1. ; $VER: Install Fix Backdrop 1.4 (11/11/36)
  2. ; Written By Bruce Steers <FixBackdrop@brucesteers.com>
  3. ; Description: Installer for Fix.Backdrop/awnp-handler
  4.  
  5. (set srcdir (pathonly @icon))
  6.  
  7. (welcome "Welcome to Bruces\nFix.Backdrop 1.4 Installation Utility")
  8.  
  9. ;------------------install/update the AWNPipe-handler-----------------
  10.  
  11. (set lv (getversion "l:awnpipe-handler"))
  12. (set nv (getversion "awnp/l/awnpipe-handler"))
  13.  (if (> nv lv)
  14.    (copylib
  15.    (source "awnp/l/awnpipe-handler")
  16.    (dest "l:")
  17.    (prompt "Installing AWNPipe-handler")
  18.    (help "This Will Install AWNPipe-handler to L:")
  19.    (confirm)
  20.    )
  21.    (copylib
  22.    (dest "Devs:dosdrivers")
  23.    (source "awnp/DosDrivers/awnpipe")
  24.    (prompt "Installing AWebNews Pipe:")
  25.    (help "This Will Install the AWNPipe Descriptor File to Devs:DosDrivers")
  26.    (infos)
  27.    )
  28.  (run "C:assign AWNPipe: dismount")
  29.  (run "C:mount AWNPipe:")
  30.  )
  31.  
  32. (set defdst
  33.   (copyfiles
  34.   (source "Fix.backdrop")
  35.   (dest "sys:tools")
  36.   (prompt "Select a drawer to install the Fix.Backdrop arexx script to.\nDefault is sys:tools/")
  37.   (help @copyfiles-help)
  38.   (confirm)
  39.   (infos)
  40. ))
  41.  
  42. (copyfiles
  43.   (source "Fix.backdrop.readme")
  44.   (dest defdst)
  45.   (prompt "Select a drawer to install the Fix.Backdrop.Readme to.\nDefault is "defdst"")
  46.   (help @copyfiles-help)
  47.   (infos)
  48.   (confirm)
  49. )
  50.  
  51. (copyfiles
  52.   (source "c/OpenURL")
  53.   (dest "C:")
  54.   (prompt "Select a drawer to install the command OpenURL to.\nOpenURL is a command to use OpenURL.library functions\nDefault should be C:\nThis is not Essential but allows you to use the menus to send email/goto urls")
  55.   (help @copyfiles-help)
  56.   (confirm)
  57. )
  58.  
  59.  
  60. (complete 99)
  61. (set runfile (tackon defdst "Fix.Backdrop"))
  62. (if
  63.    (askbool
  64.       (prompt "Run "runfile"")
  65.       (help "This will run the command\nrx "runfile"")
  66.       (default 1)
  67.    )
  68.    (
  69.       (run "run >nil: sys:rexxc/rx "runfile"")
  70.    )
  71. )
  72.  
  73. (set @default-dest (expandpath defdst))
  74.  
  75. (complete 100)
  76.  
  77. (exit  "\n\n" @app-name
  78.   " is now installed.\n\n"
  79. )
  80.